home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / GRAPHICS / TOOLS / GS / !GhostScr / gs_cidfn.p < prev    next >
Text File  |  1996-02-10  |  4KB  |  123 lines
  1. %    Copyright (C) 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % ProcSet for implementing CID-keyed fonts.
  19. % When this is run, systemdict is still writable.
  20.  
  21. %**************** This file is not ready for use:
  22. %    - It doesn't include the actual character mapper (BuildGlyph).
  23. %    - It loads the entire font into RAM.
  24. %    - It has never been tested on a real font.
  25.  
  26. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  27. .currentglobal true .setglobal
  28.  
  29. /GS_CIDInit_ProcSet 30 dict dup begin
  30.  
  31. % ---------------- CIDFont operators ---------------- %
  32.  
  33. /StartData        % <cidfontdict> <(Binary)|(Hex)> <datalength>
  34.             %   StartData -
  35.  { 2 index begin    % CID font dict
  36.    20 dict begin    % temporary dict
  37.    /datalength exch def
  38.    (Hex) eq /hex exch def
  39.    /cidfont exch def
  40.    /startdata currentfile fileposition def
  41.    
  42.     % Read the character data into an array of strings.
  43.     % There's no particular reason to prefer long strings over short,
  44.     % so we just create a separate string for each character.
  45.  
  46.    /charstrings CIDCount array def
  47.    /fontindices CIDCount FDBytes 1 eq { string } { array } ifelse def
  48.    0 1 CIDCount 1 sub
  49.     { /cid exch def
  50.       currentfile FDBytes GDBytes add cid mul startdata add setfileposition
  51.       fontindices cid FDBytes .readint put
  52.       charstrings cid
  53.       /pos GDBytes .readint def
  54.       FDBytes .readint pop    % skip FD of next entry
  55.       GDBytes .readint pos sub
  56.       dup 0 eq
  57.        { pop null }
  58.        { currentfile pos setfileposition string readstring pop }
  59.       ifelse put
  60.     }
  61.    for
  62.  
  63.     % Process each font in the FDArray.
  64.     % For Type 3 fonts, just do a definefont with an empty Encoding.
  65.     % For Type 1 fonts, read the Subrs (don't bother to check for
  66.     % duplicates), and set CharStrings to the character data array.
  67.     % We don't support embedded Type 0 fonts, but it isn't clear
  68.     % whether they're allowed anyway.
  69.  
  70.    cidfont /FDepVector [ FDArray
  71.     { dup /FontType get 1 eq
  72.        { dup /CharStrings charstrings put
  73.      /Private get
  74.      dup /SubrCount known
  75.       { begin /Subrs [    % Private
  76.         0 1 SubrCount 1 sub
  77.          { SDBytes mul SubrMapOffset add startdata add
  78.            currentfile exch setfileposition
  79.            /pos SDBytes .readint def
  80.            SDBytes .readint pos sub
  81.            currentfile pos setfileposition string readstring pop
  82.          }
  83.         ] readonly def end    % Private
  84.       }
  85.      if pop
  86.        }
  87.       if
  88.       dup /Encoding [] put
  89.       dup /FontName get exch definefont
  90.     }
  91.    forall ] readonly def
  92.  
  93.     % Install the rest of the data in the font.
  94.  
  95.    cidfont /CharStrings charstrings readonly put
  96.    cidfont /FontIndices fontindices readonly put
  97.    FontName cidfont /CIDFont defineresource pop
  98.  
  99.     % Wrap up.
  100.  
  101.    end            % temporary dict
  102.    end            % CID font dict
  103.    end            % resource dict
  104.  } bind def
  105.  
  106. /.readint        % <nbytes> .readint <int>
  107.  { 0 exch { 8 bitshift currentfile read pop add } repeat
  108.  } bind def
  109.  
  110. % ---------------- Resource category definition ---------------- %
  111.  
  112. end readonly def
  113.  
  114. /defineresource where
  115.  { pop
  116.    /CIDFont /Generic /Category findresource dup length dict .copydict
  117.    /Category defineresource pop
  118.    /CIDInit GS_CIDInit_ProcSet /ProcSet defineresource pop
  119.  }
  120. if
  121.  
  122. .setglobal
  123.